-- stack: in.6 -- format: 8 (HyperCard 1) -- flags: 0x1000 (none) -- protect password hash: 0 -- maximum user level: 5 (scripting) -- window: Rect(x1=0, y1=0, x2=0, y2=0) -- screen: Rect(x1=0, y1=0, x2=0, y2=0) -- card dimensions: w=0 h=0 -- scroll: x=0 y=0 -- background count: 2 -- first background id: 3411 -- card count: 25 -- first card id: 12118 -- list block id: 7967 -- print block id: 0 -- font table block id: 0 -- style table block id: 0 -- free block count: 0 -- free size: 0 bytes -- total size: 180448 bytes -- stack block size: 7168 bytes -- created by hypercard version: 0x01208000 -- compacted by hypercard version: 0x01228000 -- modified by hypercard version: 0x01228000 -- opened by hypercard version: 0x01228000 -- patterns[0]: 0x0000000000000000 -- patterns[1]: 0x8000000008000000 -- patterns[2]: 0x8800220088002200 -- patterns[3]: 0x8888222288882222 -- patterns[4]: 0x88AA22AA88AA22AA -- patterns[5]: 0xCCAA33AACCAA33AA -- patterns[6]: 0xEEAABBAAEEAABBAA -- patterns[7]: 0xEEBBBBEEEEBBBBEE -- patterns[8]: 0xFFBBFFEEFFBBFFEE -- patterns[9]: 0xFFBBFFFFFFBBFFFF -- patterns[10]: 0x8010022001084004 -- patterns[11]: 0xFFFFFFFFFFFFFFFF -- patterns[12]: 0x8822882288228822 -- patterns[13]: 0x1122448811224488 -- patterns[14]: 0xC4800C6843023026 -- patterns[15]: 0xB130031BD8C00C8D -- patterns[16]: 0xAA00AA00AA00AA00 -- patterns[17]: 0x8822552288225522 -- patterns[18]: 0x8855225588552255 -- patterns[19]: 0x77DD77DD77DD77DD -- patterns[20]: 0x8000000000000000 -- patterns[21]: 0xAA55AA55AA55AA55 -- patterns[22]: 0x038448300C020101 -- patterns[23]: 0x8244394482010101 -- patterns[24]: 0x8814224188412214 -- patterns[25]: 0x8080413E080814E3 -- patterns[26]: 0x22048C7422179810 -- patterns[27]: 0xBE808808EB088880 -- patterns[28]: 0x25C8328964244C92 -- patterns[29]: 0xA29C41BE2AC914EB -- patterns[30]: 0x40A00000040A0000 -- patterns[31]: 0x8040200002040800 -- patterns[32]: 0xAA00800088008000 -- patterns[33]: 0xFF80808080808080 -- patterns[34]: 0x081C22C180010204 -- patterns[35]: 0xFF808080FF080808 -- patterns[36]: 0xF87422478F172271 -- patterns[37]: 0xBF00BFBFB0B0B0B0 -- patterns[38]: 0xFF7FBE5DA2418000 -- patterns[39]: 0xFAF5FAF5A050A050 -- checksum: 0x0 ----- HyperTalk script ----- --ShowDialog XCMD 1.6 demo stack, May 10,1989 --The XCMDs and XFCNs in this stack are --©Copyright 1988,1989 by Jay Hodgdon -- Ignatz Software -- 587 Cutwater Lane -- Foster City, CA 94404 -- -- AppleLink: D2792 -- CIS: 70411,63 -- GEnie: JHODGDON -- MacNet: HODGDONJ on openstack hide msg if the version < 1.2 then ShowDialog 1,3756,"This stack requires at least HyperCard 1.2.1 to work! (So upgrade!)",TRUE go home exit openStack end if if (item 2 of the loc of cd window) - (item 2 of the screenRect) < 20 then hide menubar set userlevel to 5 pass openstack end openstack on doMenu what if what is "Help" then doHelp else pass doMenu end doMenu on left visual scroll right go prev cd end left on right visual scroll left go next cd end right on arrowKey what if what is "left" then left else if what is "right" then right end if end arrowKey on printIt put bg fld 3 & return & bg fld 1 & return & bg fld 2 & return & bg fld 4 into container put bg fld "Title" into prompt PrintDoc prompt,container,prompt,times,12 end printIt on doHelp global theItem if theItem is empty then put 1 into theItem put "About ShowDialog" & return & "Alert Types" & return & "cicn's" & return & "Color Icon Bars" & return & "Commercial Use" & return & "Debugging ShowDialog" & return & "Dialog Types" & return & "Making a DLOG/DITL Template (a step-by-step guide)" & return & "Making PICT's" & return & "Obtaining ResEdit" & return & "Other X-Commands:" & return & "    Ants XFCN" & return & "    ClipToPICT XFCN" & return & "    ColorOn XFCN" & return & "    CreditsDialog XCMD" & return & "    TextDialog XCMD" & return & "    PrintDoc XCMD" & return & "    SplashDialog XCMD" & return & "PICT Maker" & return & "Registration" & return & "ResEdit" & return & "Shareware" & return & "ShowDialog Types:" & return & "    Type 1 (simple Dialogs and Alerts)" & return & "    Type 2 (Editable text fields & Check boxes)" & return & "    Type 3 (Editable text fields & Radio buttons)" & return & "    Type 4 (Editable text fields & Popup menu)" & return & "    Type 5 (Help screens and " & the NumToChar of 34 & "PICT" & the NumToChar of 34 & " dialogs)" & return & "    Type 6 (Help screens that cycle)" & return & "    Type 7 (Scrolling List)" & return & "Special Dialogs" & return & "Splash Screens" & return & "Window Types" & return into container ShowDialog 1,5001,"",TRUE,80,100 if the result = 2 then exit doHelp put " Help Topics" into prompt ShowDialog 7,5002,prompt,geneva,9,container,theItem,"one" if line 1 of the result = 2 then exit doHelp put line 2 of the result into theResult put theResult into theItem if theResult = 1 then go cd "What is ShowDialog" else if theResult = 2 then go cd "Alert Types" else if theResult = 3 then go cd "Color Icon Bars" send mouseUp to bg btn ID 10 find "cicn" else if theResult = 4 then go cd "Color Icon Bars" send mouseUp to bg btn ID 11 else if theResult = 5 then go cd "Shareware" send mouseUp to cd btn ID 5 else if theResult = 6 then go cd "Trouble Shooting" else if theResult = 7 then go cd "Dialog Types" else if theResult = 8 then go cd "Resedit" hide cd pict show bg fld ID 17 find string "Using ResEdit to make ShowDialog Dialogs" else if theResult = 9 then go cd "PICT Maker Menu" send mouseUp to cd btn ID 1 else if theResult = 10 then go cd "ResEdit" send mouseUp to cd btn ID 4 else if theResult = 11 then go cd "Auxiliary X-Commands" else if theResult = 12 then go cd "Auxiliary X-Commands" send mouseUp to cd btn "Ants XFCN" else if theResult = 13 then go cd "Auxiliary X-Commands" send mouseUp to cd btn "ClipToPICT XFCN" else if theResult = 14 then go cd "Auxiliary X-Commands" send mouseUp to cd btn "ColorOn XFCN" else if theResult = 15 then go cd "More Aux" send mouseUp to cd btn "CreditsDialog XCMD" else if theResult = 16 then go cd "More Aux" send mouseUp to cd btn "TextDialog XCMD" else if theResult = 17 then go cd "Auxiliary X-Commands" send mouseUp to cd btn "PrintDoc XCMD" else if theResult = 18 then go cd "More Aux" send mouseUp to cd btn "SplashDialog XCMD" else if theResult = 19 then go cd "PICT Maker Menu" else if theResult = 20 then go cd "Shareware" send mouseUp to cd btn ID 3 else if theResult = 21 then go cd "ResEdit" else if theResult = 22 then go cd "Shareware" else if theResult = 23 then go cd "XCMD Types Menu" else if theResult = 24 then go cd "Type 1 XCMD" send mouseUp to bg btn ID 11 else if theResult = 25 then go cd "Type 2 XCMD" send mouseUp to bg btn ID 11 else if theResult = 26 then go cd "Type 3 XCMD" send mouseUp to bg btn ID 11 else if theResult = 27 then go cd "Type 4 XCMD" send mouseUp to bg btn ID 11 else if theResult = 28 then go cd "Type 5 XCMD" send mouseUp to bg btn ID 11 else if theResult = 29 then go cd "Type 6 XCMD" send mouseUp to bg btn ID 11 else if theResult = 30 then go cd "Type 7 XCMD" send mouseUp to bg btn ID 11 else if theResult = 31 then go cd "Special Dialogs" send mouseUp to bg btn ID 11 else if theResult = 32 then go cd "Special Dialogs" send mouseUp to bg btn ID 11 find "Splash Screens" else if theResult = 33 then go cd "Window Types" end if end doHelp